home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 1
/
Publication_01_19xx_-_de_Side_A.d64
/
die basic-demo
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
675b
|
27 lines
1 m$(1)="testpunkt 1"
2 m$(2)="testpunkt 2"
3 an=2:rem anzahl
4 mf=1:rem farbe weiss
5 gosub10
6 print"[147] menuepunkt :[144]";a""
7 end
10 printchr$(147):a=1:q=-1:poke646,mf:forg=1toan:print" "m$(g):nextg
20 q=q+1:poke646,q:ifq=16thenq=0
30 poke211,1:poke214,a:sys58640:printm$(a)
40 geta$:ifa$=""then20
50 poke211,1:poke214,a:sys58640:poke646,mf:printm$(a)
60 ifa$="[145]"thenifa>1thena=a-1
70 ifa$=""thenifa<anthena=a+1
80 ifa$=chr$(13)thenreturn
90 goto20
100 rem ***********************
101 rem * *
102 rem * diese menue-routine *
103 rem * kannst du in deine *
104 rem * eigenen programme *
105 rem * einbinden ! *
106 rem * *
107 rem * zeitgeist/pcc/dsi *
108 rem * *
109 rem ***********************